home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
b.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
2KB
|
103 lines
8000 FOR J:=1 TO 4 DO //B1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 24
8050 PENUP
8060 BACK 26
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 2 DO //2
8130 PENDOWN
8140 FORWARD 28
8150 PENUP
8160 BACK 28
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 10 DO //3
8230 PENDOWN
8240 FORWARD 11
8250 PENUP
8260 FORWARD 6
8270 PENDOWN
8280 FORWARD 11
8290 PENUP
8300 BACK 28
8310 LEFT 90
8320 FORWARD 1
8330 RIGHT 90
8340 ENDFOR J
8350 //
8360 FOR J:=1 TO 4 DO //4
8370 PENDOWN
8380 FORWARD 28
8390 PENUP
8400 BACK 28
8410 LEFT 90
8420 FORWARD 1
8430 RIGHT 90
8440 ENDFOR J
8450 //
8460 FOR J:=1 TO 2 DO //4.5
8470 PENDOWN
8480 FORWARD 26
8490 PENUP
8500 BACK 26
8510 LEFT 90
8520 FORWARD 1
8530 RIGHT 90
8540 ENDFOR J
8550 FOR J:=1 TO 10 DO //5
8560 PENDOWN
8570 FORWARD 11
8580 PENUP
8590 FORWARD 4
8600 PENDOWN
8610 FORWARD 8
8620 PENUP
8630 BACK 23
8640 LEFT 90
8650 FORWARD 1
8660 RIGHT 90
8670 ENDFOR J
8680 //
8690 FOR J:=1 TO 2 DO //6
8700 PENDOWN
8710 FORWARD 23
8720 PENUP
8730 BACK 23
8740 LEFT 90
8750 FORWARD 1
8760 RIGHT 90
8770 ENDFOR J
8780 //
8790 FOR J:=1 TO 4 DO //7
8800 PENUP
8810 FORWARD 2
8820 PENDOWN
8830 FORWARD 19
8840 PENUP
8850 BACK 21
8860 LEFT 90
8870 FORWARD 1
8880 RIGHT 90
8890 ENDFOR J
8900 //
8910 FOR J:=1 TO 2 DO //8
8920 PENUP
8930 FORWARD 8.5
8940 PENDOWN
8950 FORWARD 6
8960 PENUP
8970 BACK 14.5
8980 LEFT 90
8990 FORWARD 1
9000 RIGHT 90
9010 ENDFOR J